<script>on mouseUpPlayQuicKey "QuickPanel"put the result into itif (first char of it = "-") and (second char of it = "1") thenPlayQuicKey "QuicKeys 2"put the result into itif (first char of it = "-") and (second char of it = "1") thenput "Could not find Quick Panel QuicKey - Check Name" into itend ifcheckerror itend ifend mouseUp</script>
</part>
<part>
<id>5</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>37</left>
<top>202</top>
<right>152</right>
<bottom>224</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Syntax</name>
<script>on mouseuplock screenset scroll of card field "Syntax" to 0hide card field "Example Script"hide card button "Run Example"hide card field "Error Checking"hide card button "Run Error"show card field "Syntax"lock screenend mouseup</script>
</part>
<part>
<id>7</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>37</left>
<top>226</top>
<right>152</right>
<bottom>248</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Example Script</name>
<script>on mouseuplock screenhide card field "Syntax"hide card field "Error Checking"hide card button "Run Error"show card field "Example Script"show card button "Run Example"lock screenend mouseup</script>
<script>on mouseUpPlayQuicKey "QuickReference Card"-- error checking put in for converted QuicKeys owners. The Installer-- does not convert the name from "Quick reference" to-- "QuickReference Card". You will have to rename it to make this-- example work.put the result into itif (first char of it = "-") and (second char of it = "1") thenput "Could not find QuickReference Card QuicKey - Check Name" into itend ifcheckerror itend mouseUp</script>
<script>on mouseUpPlayQuicKey "ChrisWallace"put the result into itif (first char of it = "-") and (second char of it = "1") thenput "QuicKey not found" into itend ifcheckerror itend mouseUp</script>
</part>
<part>
<id>17</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>427</left>
<top>28</top>
<right>504</right>
<bottom>45</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Ver. #</name>
<script>on mouseupif the optionkey is downthenask "Enter the new date" with "By Chris Wallace"if it is not empty thenput it into card field "Ver. #"end ifshow card field "Version"end ifif the optionkey is not downthenshow card field "Version"wait 60 tickshide card field "Version"end ifend mouseup</script>
</part>
<part>
<id>18</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>0</left>
<top>28</top>
<right>249</right>
<bottom>56</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUpif the optionkey is downthenshow messageput "Thanks to everyone on AppleLink & Project Knight Stand - Chris" into messageend ifif the commandkey is downthenput "Bye!" into messagehide messageend ifend mouseUp</script>
</part>
<part>
<id>19</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>427</left>
<top>28</top>
<right>504</right>
<bottom>45</bottom>
</rect>
<style>opaque</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Version</name>
<script>on mouseupif the optionkey is downthenask "Enter the new version" with "By Chris Wallace"if it is not empty thenput it into card field "Version"end ifend ifhide meend mouseup</script>
</part>
<content>
<layer>card</layer>
<id>8</id>
<text>About the Play QuicKeys 2 XCMDThis stack contains an XCMD that will play QuicKeys 2‚Ñ¢macros and sequences from any Hypercard stack.Use ResCopy or ResEdit to copy it to your stack.There is no charge for distributing this XCMD with public domain or commercial products. If you are using this XCMD in a product please drop us a note telling us that you are doing this. If the XCMD changes, you will be one of the first to know. This stack may be freely distributed as long as it is not modified in any way.If you would like to comment on or need to ask a question regarding QuicKeys 2, send an E-mail message containing your name, company, title, mailing address, daytime phone number, and electronic address to us at one of these electronic addresses.America OnLine: CESOFTWAREAppleLink: CESOFTWAREConnect: CESOFTWARECompuserve: 76136, 2137GEnie: CESOFTWAREFAX: 515-224-4534MCI Mail: CESOFTWAREQuickMail: 515-224-1721The first line of the body of your E-mail message should read:ATTN: QuicKeys DSIf you do not use electronic services, write to us at:CE Software, Inc.P.O. Box 65580West Des Moines, IA 50265Attn: QuicKeys DS(515) 224-1995</text>
</content>
<content>
<layer>card</layer>
<id>9</id>
<text>QuicKeys 2 XCMD SytnaxTo play a QuicKeys 2 macro or sequence from HyperCard add this line into any script: PlayQuicKey "QuicKey Name"Notes:• The "QuicKey Name" is not case sensitive.• The XCMD can play QuicKeys from both the Universal and the HyperCard set. If there are two QuicKeys that have the same name, the HyperCard QuicKey will play.• If you have two QuicKeys with the same name in the same set, there is no way to tell which one it will pick. You should use different names to be sure the XCMD will play the QuicKey that you wanted. </text>
</content>
<content>
<layer>card</layer>
<id>11</id>
<text>About the Example Script ButtonThe example script will bring up the QuicKeys 2 Quick Reference Card. To run this script, click on the "Run Example" button to the left of this field.-- The actual script followson mouseUp PlayQuicKey "QuickReference Card"end mouseUp</text>
</content>
<content>
<layer>card</layer>
<id>15</id>
<text>About Error CheckingError checking can be added as a convenience to the user by adding the following script after the PlayQuicKey command: put the result into it if (first char of it = "-") and (second char of it = "1") then put "QuicKey not found" into it end if checkerror itThis error checking requires the ErrorDialog XCMD contained in this stack and the following script in the stack info of your stack:on checkerror theerror if first char of theerror <> "0" then set cursor to "Arrow" errordialog theerror end ifend checkerror To run this example error, click on the "Run Error" button at the left of this field.An full example script of this can be found by editing the "Run Error" button to the left of this field.If this error checking is not added and the XCMD cannot find the key, it returns to the stack without reporting an error. </text>
(1994)[Mac].iso/XCMDS&XFCNS/Play QuicKeys 2 XCMD/Play QuicKeys 2 XCMD/PATs.png){kind=link}